home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00260.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  2.1 KB  |  65 lines
  1. on exitFrame
  2.   global mnv, ppl, foes, advance, soundspath, heart, pwr, fxpath
  3.   if getAt(mnv, 1) > 1 then
  4.     if the keyCode > 124 then
  5.       set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  6.       if the keyCode = 126 then
  7.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) - 17
  8.       else
  9.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) + 17
  10.       end if
  11.       setAt(mnv, 1, getAt(mnv, 1) - 1)
  12.     else
  13.       if the keyCode > 122 then
  14.         set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  15.         if sprite(getAt(ppl, 1)).flipH = 1 then
  16.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) - 17
  17.         else
  18.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) + 17
  19.         end if
  20.         setAt(mnv, 1, getAt(mnv, 1) - 1)
  21.       else
  22.         set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  23.         setAt(mnv, 1, getAt(mnv, 1) - 1)
  24.       end if
  25.     end if
  26.   else
  27.     if the memberNum of sprite getAt(ppl, 1) < 82 then
  28.       set the member of sprite getAt(ppl, 1) to member(1, 2)
  29.     end if
  30.   end if
  31.   if (random(3) = 1) and (heart > 0) then
  32.     heart = heart - 1
  33.     set the locH of sprite 5 to 10 + random(420)
  34.     sprite(5).visible = 1
  35.   else
  36.     sprite(5).visible = 0
  37.   end if
  38.   if (advance = 13) or (advance = 14) then
  39.     foes4(getAt(foes, 1), getAt(ppl, 2))
  40.     foes4(getAt(foes, 2), getAt(ppl, 3))
  41.   else
  42.     if advance = 15 then
  43.       foes4(getAt(foes, 3), getAt(ppl, 4))
  44.     else
  45.       if (advance = 16) or (advance = 17) then
  46.         foes4(getAt(foes, 3), getAt(ppl, 4))
  47.         foes4(getAt(foes, 2), getAt(ppl, 3))
  48.       end if
  49.     end if
  50.   end if
  51.   puppetSprite(31, 0)
  52.   put getAt(pwr, 1) into field "power"
  53.   if getAt(pwr, 1) <= 0 then
  54.     go("dead")
  55.   end if
  56.   if not soundBusy(4) then
  57.     sound playFile 4, fxpath & "psymus.aif"
  58.   end if
  59.   if (sprite(41).visible = 1) and sprite getAt(ppl, 1) intersects 41 then
  60.     go("endstage4")
  61.   else
  62.     go(marker(0))
  63.   end if
  64. end
  65.